perm filename EX1.SAI[3,BGB] blob
sn#113307 filedate 1974-07-29 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "EXAMPLE ONE"
C00003 ENDMK
C⊗;
BEGIN "EXAMPLE ONE"
REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
DEFINE π="3.1415927";
INTEGER B1,B2,I;
MKUNIV;
B1 ← MKCUBE(8,1,0.5);
B2 ← MKCUBE(1,2,4);
TRANSL(B2,-5,1.5,0);
FOR I←1 STEP 1 UNTIL 24 DO
BEGIN
GEODPY;
PLOTO("PLTX1."&CVS(I));
ROTATE(B1,π/10,π/12,π/13);
ROTATE(B2,0,2*π/23,0);
END;
END "EXAMPLE ONE";